home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / MAC / DCB.MAC < prev    next >
Text File  |  1987-08-10  |  921b  |  36 lines

  1. DCB     MACRO DSORG=S,RECFM=F,MACRF=G,LRECL=80,BLKSIZE=0,
  2.            EODAD=0,SYNAD=&EODAD,RECORD=0
  3. &LABEL$$ DS    0F,0CL86
  4.      DC    C'ADCB'
  5.      AIF   &DDNAME=(.DDX
  6.      DC    A(DCBDD&N$)
  7.      AGO   .DDZ
  8. .DDX     DC    A(&DDNAME)
  9. .DDZ     AIF   &MACRF>P.BDAM
  10.      DC    X'FFFF',X'00'
  11.      DC    CL1'&DSORG',CL1'&MACRF',CL1'&RECFM'
  12.      DC    X'0A1A'
  13.      DC    H'&LRECL',H'&BLKSIZE'
  14.      DC    A(&EODAD,&SYNAD,&RECORD)
  15.      DC    54X'00'
  16.      AGO   .DDN
  17. .BDAM     AIF   '&RECORD'='0'.NOREC
  18.      DC    X'FFFF',X'40'
  19.      AGO   .DSORG
  20. .NOREC     DC    X'FFFF',X'00'
  21. .DSORG     DC    CL1'&DSORG',CL1'&MACRF',CL1'&RECFM'
  22.      DC    X'0A1A'
  23.      AIF   '&BLKSIZE'='0'.NOBLK
  24.      DC    H'&BLKSIZE',H'&BLKSIZE'
  25.      AGO   .ADRS
  26. .NOBLK     DC    H'&LRECL',H'&LRECL'
  27. .ADRS     DC    A(&EODAD,&SYNAD,0,&RECORD)
  28.      DC    50X'00'
  29. .DDN     AIF   &DDNAME='.LIT
  30.      AIF   &DDNAME=(.END
  31. DCBDD&N$ DC    C'&DDNAME',X'00'
  32.      AGO   .END
  33. .LIT     ANOP
  34. DCBDD&N$ DC    C&DDNAME,X'00'
  35. .END     ANOP
  36.